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fACILITY: MATH LIBRARY 


"ABSTRACT: 
This module contains routine MTHSGSIGN: 
Return argl with sign of arg2. 


VERSION: 1 
HISTORY: 


AUTHOR: 
Steven B. Lionel, 26-Jan-79: Version 1 


MODIFIED BY: 


—E 2 
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Edit History for Version 1 of MTH$GSIGN 

1-001 = Adapted from MTHSDSIGN version 1-001. SBL 26-Jan-79 

1-002 = Eliminated reserved operand exception by spe tus san 3 
logic branch for input arguments with a value of 


RN 
1-003 - Added nk R2 to the entry mask. JCW 20-Jul-84 
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-SBTTL MTHSGSIGN = G Transfer of Sign 


4 FUNCTIONAL DESCRIPTION: 
Return the value of argl with the sign of arg2. 


CALLING SEQUENCE: 
Transfer_of_sign.wg.v = MTHS$GSIGN (argi.rg.r, arg2.rg.r) 


INPUT PARAMETERS: 
The two input parameters are G floating-point 
values and are call-by-reference. 


IMPLICIT INPUTS: 
NONE 

OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 

COMPLETION CODES: 
NONE 


SIDE EFFECTS: 
NONE 
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-ENTRY MTHSGSIGN, “M<R2> 
MOVG @4(AP), RO 
BEQL RETURN 
EXTZV) «#15, #1, @B(AP), R2 
INSV R2, . . RO 
RETURN: RET 


ngs = argl 


sign 
Transfer 


END 
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RETURN 


! Psect synopsis ! 
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PSECT name Allocation PSECT No. Attributes 


08000000 ( 0.) 00 ¢ O.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
00000015 ¢ 21.) O1¢ 1.) PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC LONG 
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! \ Performance indicators ! 


Ses es ee sce ee sree sem aan ese} 


Page faults CPU Time Elapsed Time 
nitialization 7:00:00. :00:00. 
Initializati ¥ 00:00:00.09 00:00 0 9 
zounens processing 122 00:00:00.49 00:00:05.8 
s 1 66 00:00:00.37 00:00:02.26 
Synbol table sort 0 00:00: 8-08 0:00:00.00 
Pas 38 00:00:00. He ES 
Symbol table output 1 OF 88 88 Ry 0:00:00.01 
Psect synopsis output 3 00:00:00.02 00:00:00.02 
Cross-reference output 0 ae + $f oe ee See at 
Assembler run totals 265 00:00:01. 00:00:10.4 


The working set Limit was 750 pages. 

1390 bytes (3 pages) of virtual memory were used to buffer the intermediate code. 

There were 10 pages of symbol table space allocated to hold 2 non-local and 6 Local symbols. 
139 source Lines were read in Pass 1, producing 10 object records in Pass 2. 

0 pages of virtual memory were used to define 0 macros. 
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Macro Library name Macros defined 
“S255SDUA2B:(SYSLIBISTARLET.MLB:2 0 it 0 
0 GETS were required to define 0 macros. 

There were no errors, warnings or information messages. 
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